home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1 / Nebula One.iso / Graphics / PostScript / Pencil / ExampleDocuments / CustomFillExample.pencil (.txt) < prev    next >
Encoding:
NeXT TypedStream Data  |  1995-06-12  |  553 b   |  22 lines
  1. streamtyped
  2. /rMax 2 31 exp 1 sub def
  3. /rnd { rand rMax div } def
  4. /myfill3 {
  5. doClip
  6. width cvi srand
  7. width cvi 1 add {
  8. rnd rnd rnd setrgbcolor
  9. rnd width mul rnd height mul rnd 20 mul 0 360 arc fill
  10. } repeat
  11. endClip
  12. } def
  13. PencilGraphic
  14. Object
  15. *****ffffffffffffcccci
  16. circle
  17. drawVS
  18. stroke
  19. myfill3
  20. hermite
  21. [20f]~
  22.